home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / revenge cyon_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  97 lines
  1. 100 co=54272:fort=cotoco+24:poket,0:next
  2. 110 poke53280,0:poke53281,1:v$=" seconds"
  3. 120 print"[147]"tab(12)"revenge of cyon[146]"
  4. 130 print""tab(11)"(use joystick #2)"
  5. 140 print"what skill level (1-6)?"
  6. 150 geta$:ifa$<"1"ora$>"6"then150
  7. 160 d=val(a$):sc=1024
  8. 170 pokeco+24,15:pokeco+5,17:pokeco+6,248:pokeco,100
  9. 180 bg=1
  10. 190 poke53281,1:print"[147]":poke53281,0:print"[159]"bg:ti$="000000"
  11. 200 lk=int(rnd(1)*150)+sc
  12. 210 fori=1to10:o=1064+int(rnd(1)*520):pokeo,46:pokeo+co,1:next
  13. 220 poke1154,81:poke1154+co,1
  14. 230 print""
  15. 240 print"[206][163][163][145][157][216][163][205][205][164][164][206][145][206][145][206][163][163][145][206][145][206][163][163][205][205][205][205][205][164][164][164][164][164][164][164][206][145][206][145][206][205][205][164][164][206][145][206][145][206][163]"
  16. 250 print"[206][145][165][145][157][164][206][163][163][145][157][221][163][205][164][157][167][205]"
  17. 260 poke1769,87:poke1769+co,4:poke1887,124:poke1887+co,5
  18. 270 fori=1890to1887step-1:pokei+1,32:pokei+co+1,0:pokei,124:pokei+co,5
  19. 280 forj=1to80:nextj,i
  20. 290 j=0:k=0
  21. 300 x=20:y=12:th=0:s1=0:a=32:a1=32:a2=32
  22. 310 forw=1to3:fori=10to200step10:pokeco+1,i:pokeco+4,33:forj=1to10:nextj,i,w
  23. 320 print"    "
  24. 330 pokeco+4,32
  25. 340 s=1524
  26. 350 pokes,a
  27. 360 p=peek(56320)and15:y=y+((pand1)=0)-((pand2)=0):x=x+((pand4)=0)-((pand8)=0)
  28. 370 fr=peek(56320)and16:ifx<0thenx=39
  29. 380 ify<0theny=0
  30. 390 ifx>39thenx=0
  31. 400 ify>24theny=24
  32. 410 iflk>1983then610
  33. 420 c=c+1:iffr=0thenth=th+1
  34. 430 pokelk+co+po,d1:ifa1<>43thenpokelk+po,a1
  35. 440 ifbg>6andj<>1thenpokelk+co+po+6,d2:ifa2<>43thenpokelk+po+6,a2
  36. 450 iffr=0andth<=7thengosub1030
  37. 460 po=int(rnd(1)*d)+1:ifth>7thenfr=1
  38. 470 pokeos,32:ns=1064+int(rnd(1)*520):pokens,46:os=ns
  39. 480 s=sc+x+y*40
  40. 490 a=peek(s):pokes,43:ifc=2thenlk=lk+40:c=0
  41. 500 a1=peek(lk+po):d1=peek(lk+po+co)
  42. 510 ifbg>6andj<>1thena2=peek(lk+po+6):d2=peek(lk+po+co+6)
  43. 520 ifs1<>1thenpokelk+po+co,7:pokelk+po,90
  44. 530 a$="shots":ifth=1thena$="shot "
  45. 540 print"";:ifs=lk+poandfr=0thenprintth;a$:printright$(ti$,2)v$:goto910
  46. 550 ifbg>6andj<>1thenpokelk+po+co+6,7:pokelk+po+6,90
  47. 560 ifbg>6andj<>1ands=lk+po+6andfr=0thenprintth;a$:printright$(ti$,2);:gosub860
  48. 570 ifpeek(1769)=87thenpoke1769,81:poke1769+co,4:goto590
  49. 580 poke1769,87:poke1769+co,4
  50. 590 ifj=1ands1=1thenbg=bg+1:goto1040
  51. 600 pokesc+qw,32:qw=int(rnd(1)*360)+80:pokesc+qw,46:goto350
  52. 610 jh=jh+1:ifjh<3then190
  53. 620 pokeco+1,10:pokeco+4,129
  54. 630 fori=0to15:forj=0to15:poke53280,i:poke53281,j:nextj,i
  55. 640 poke53280,0:poke53281,0
  56. 650 pokeco+4,128
  57. 660 print"[147][159]you survived"bg-1"attack waves."
  58. 670 onbggosub730,740,750,760,770,780,790,800,810,820,830
  59. 680 print"[158]play again (y/n)?"
  60. 690 geta$:ifa$=""then690
  61. 700 ifa$="y"thenrun
  62. 710 ifa$="n"thenend
  63. 720 goto690
  64. 730 print"[156]sorry, private.":return
  65. 740 print"[156]not too bad, corporal.":return
  66. 750 print"[156]nice going, sergeant.":return
  67. 760 print"[156]way to go, second lieutenant.":return
  68. 770 print"[156]you are now first lieutenant.":return
  69. 780 print"[156]you are now a captain.":return
  70. 790 print"[156]you are now a major.":return
  71. 800 print"[156]you are now a colonel.":return
  72. 810 print"[156]you are now a general.":return
  73. 820 print"[156]you are now a field marshall.":return
  74. 830 print"[156]hello, mr. president.":return
  75. 840 print"[147][158]you saved the earth from alien attack!!"
  76. 850 goto 680
  77. 860 forf=1to3:forl=150to100step-1:pokeco+1,l:pokeco+4,17:next:next:pokeco+4,16
  78. 870 printv$:pokelk+po+co+6,1:pokelk+po+6,43
  79. 880 forz=40tolk-scstep40:g=peek(lk+po-z+6):g1=peek(lk+po-z+co+6)
  80. 890 pokelk+po-z+co+6,7:pokelk+po-z+6,90:forh=1to70:next:pokelk+po-z+co+6,g1
  81. 900 pokelk+po-z+6,g:next:th=0:j=1:return
  82. 910 ifbg>6andj<>1thenpokelk+po+co+6,7:pokelk+po+6,90
  83. 920 s1=1
  84. 930 fort=1to3:forty=100to150:pokeco+1,ty:pokeco+4,17:next:next:pokeco+4,16
  85. 940 s1=1:pokelk+po+co,1:th=0:pokelk+po,43
  86. 950 forz=40tolk-scstep40:g=peek(lk+po-z):g1=peek(lk+po-z+co)
  87. 960 pokelk+po-z+co,7:pokelk+po-z,90:forh=1to70:next:pokelk+po-z+co,g1
  88. 970 pokelk+po-z,g:next
  89. 980 ifbg<7thenbg=bg+1:goto190
  90. 990 ifj=1ands=1thenbg=bg+1:ifbg<12then190
  91. 1000 ifj=1ands=1andbg=12then840
  92. 1010 goto550
  93. 1020 rem fire noise
  94. 1030 pokeco+1,200:poke co+4,129:pokeco+4,128:fort=1to100:next:return
  95. 1040 ifbg<=11then190
  96. 1050 goto840
  97.